home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_186_makecliprez.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  926 b   |  25 lines
  1. set cursor to "cross"
  2.   put "Drag to place your new picture frame"
  3.   wait until the mouseclick
  4.   do put the mouseloc into start
  5.   do put rubberbandRect(item 1 of start, item 2 of start) into where
  6.   set cursor to watch
  7.   do put ResText("TEXT","cliprez", ColorAuthoringPath) into test
  8.   set lockscreen to true
  9.   domenu "New Button"
  10.   
  11.   if there is a bg btn "New Button" then
  12.     do put "bg btn id" && the id of bg btn "New Button" into unique
  13.     do set the name of unique to "Normal Rez"
  14.   end if
  15.   
  16.   if there is a  btn "New Button" then
  17.     do put "btn id" && the id of btn "New Button" into unique
  18.     do set the name of  unique to "Normal Rez"
  19.   end if
  20.   do set the rect of unique to where
  21.   do set the script of unique to test
  22.   do set the style of unique to rectangle
  23.   put "Here is your new Normal-Resource picture frame"
  24.   if the visible of window Tool is false then show Tool window at 100, 10
  25.   choose "Browse" tool